9900 '.....PRT
9905 KEY OFF:GOSUB 9940:LOCATE 25,5:COLOR 0,2
9910 PRINT " Send this page to:(1)Printer Queue? (2)Printout? ";
9915 PRINT "(3)Next page? (1/2/3)";:COLOR 7,0
9920 Z$=INKEY$:IF Z$<"1"OR Z$>"3"THEN 9920 ELSE GOSUB 9940
9925 IF Z$="3"THEN RETURN
9930 FOR I%=1 TO 24:FOR J%=1 TO 80:LPRINT CHR$(SCREEN(I%,J%));:NEXT J%:NEXT I%
9935 IF Z$="2"THEN LPRINT CHR$(12) ELSE 9905
9940 LOCATE 25,1:PRINT STRING$(80,32);:RETURN
